home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Demos / TGest2Demo / Installa < prev    next >
Text File  |  2002-03-12  |  2KB  |  61 lines
  1. ;
  2. ; $VER: Script di Installazione di TGest2DEMO v1.0 (12.01.02)
  3. ;
  4.  
  5. (set @default-dest "Work:")
  6. (set #wrongOS   (cat "TGest2DEMO necessita\n"
  7.                      "dell'OS2.0 o superiore!\n"))
  8. (set #TGest_dir (cat "Scegli il cassetto o la partizione\n"
  9.                      "dove installare il cassetto TGest.\n"
  10.                      "Se il cassetto esiste già, allora seleziona\n"
  11.                      "il cassetto o la partizione che lo contiene."))
  12. (set #done      (cat "TGest2DEMO è stato installato\n"
  13.                      "con successo nel cassetto.\n\n"))
  14.  
  15. (set OS_ver (getversion "exec.library" (resident)))
  16. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  17.  
  18. (complete 0)
  19. (set TGest_def_dir @default-dest)
  20. (set TGest_dir
  21.         (askdir
  22.                 (default TGest_def_dir)
  23.                 (prompt  #TGest_dir)
  24.                 (help    @askdir-help)
  25.         )
  26. )
  27.  
  28. (set TGest_dir (tackon TGest_dir "TGest2DEMO"))
  29. (set Doc_dir   (tackon TGest_dir "Doc"))
  30. (set Mod_dir   (tackon TGest_dir "Moduli"))
  31. (set Pro_dir   (tackon TGest_dir "Prospetti"))
  32.  
  33. (if (NOT (exists TGest_dir)) (makedir TGest_dir (infos)))
  34. (if (NOT (exists Doc_dir))   (makedir Doc_dir   (infos)))
  35. (if (NOT (exists Mod_dir))   (makedir Mod_dir))
  36. (if (NOT (exists Pro_dir))   (makedir Pro_dir))
  37.  
  38. (complete 10)
  39. (copyfiles (source "TMag2DEMO") (dest TGest_dir) (infos) (help @copyfiles-help))
  40. (complete 30)
  41. (copyfiles (source "TFat3DEMO") (dest TGest_dir) (infos) (help @copyfiles-help))
  42. (complete 50)
  43. (copyfiles (source "ProspEd")   (dest TGest_dir) (infos) (help @copyfiles-help))
  44. (complete 60)
  45. (copyfiles (source "ProspEdNG") (dest TGest_dir) (infos) (help @copyfiles-help))
  46. (complete 70)
  47. (copyfiles (source "Adesivi")   (dest TGest_dir) (infos) (help @copyfiles-help))
  48. (complete 80)
  49. (copyfiles (source "ATTENZIONE!!!")(dest TGest_dir) (infos) (help @copyfiles-help))
  50. (complete 90)
  51.  
  52. (copyfiles (source "Doc/")       (dest Doc_dir)  (all)   (help @copyfiles-help))
  53. (copyfiles (source "Moduli/")    (dest Mod_dir)  (all)   (help @copyfiles-help))
  54. (copyfiles (source "Prospetti/") (dest Pro_dir)  (all)   (help @copyfiles-help))
  55. (complete 100)
  56.  
  57. (message #done "\"" TGest_dir "\"")
  58.  
  59. (exit)
  60.  
  61.